home *** CD-ROM | disk | FTP | other *** search
/ Apple Macintosh CD: Powe…osh 6100/7100/8100 Series / Apple Macintosh CD - Power Macintosh 6100, 7100, 8100 series.7z / Apple Macintosh CD - Power Macintosh 6100, 7100, 8100 series.bin / Power Macintosh Demo Apps / Segue / DEMO / demo.t < prev    next >
Text File  |  1994-01-12  |  6KB  |  175 lines

  1. /*
  2. **     demo.t 
  3. **
  4. **     QA Partner Demonstration using Text Editor.
  5. **
  6. **     (For demo purposes only; testcases may not reflect optimum structure.
  7. **     Runs as is on Motif, Macintosh, and Windows).
  8. **
  9. **     Copyright (c) 1992-1994 by Segue Software, Inc.
  10. **     All Rights Reserved.
  11. */
  12.  
  13. /****************************************************************************/
  14.  
  15. use "demo.inc";
  16.  
  17. main ()
  18. {
  19.    TestAboutDialogBox ();
  20.    TestFileSave ();  
  21.    TestCopyPasteCut ();   
  22.    TestGotoLine ();
  23.    TestInvokeError ();  
  24. }
  25.  
  26. /*****************************************************************************/
  27.  
  28. testcase TestAboutDialogBox ()
  29. {
  30.    // bring up About dialog box
  31.     
  32.    TextEditor.Help.About.Pick ();                  // bring up About dialog box
  33.    VerifyValue (About.TextEditorText.GetText (), "Text Editor");   
  34.    About.OK.Click () ;                             // close About dialog box
  35. }
  36.  
  37. /*****************************************************************************/
  38.  
  39. testcase TestFileSave ()
  40. {
  41.    // save a file
  42.    
  43.    list of string lsText = {
  44.       "All things bright and beautiful,",
  45.       "  All creatures great and small,",
  46.       "All things wise and wonderful,",
  47.       "  The Lord God made them all.",
  48.       " ",
  49.       "     - Cecil Frances Alexander"
  50.    };
  51.  
  52.    string sFile;                                  // determine filename by GUI type
  53.    if (GetGUIType () == GT_MOTIF)                 // if running on Motif,
  54.       sFile = "/tmp/temp.txt";                    // set variable
  55.    else
  56.       sFile = "temp.txt";
  57.  
  58.    if (SYS_FileExists (sFile))                    // if the file exists,
  59.       SYS_RemoveFile (sFile);                     // remove it
  60.     
  61.    TextEditor.Document.SetMultiText (lsText);     // write in some text
  62.  
  63.    TextEditor.File.Save.Pick ();                  // bring up the save dialog box
  64.    SaveAs.FileName.SetText (sFile);               // write the filename
  65.    SaveAs.OK.Click ();                            // save the file
  66.         
  67.    TextEditor.File.Open.Pick ();                  // bring up the open dialog box
  68.    if (GetGUIType () == GT_MOTIF) {               // if running on Motif, 
  69.       Open.Filter.SetText ("/tmp/*.txt");         // set the filter 
  70.       Open.FilterButton.Click ();                 // push the filter button
  71.       Open.FileName.SetText (sFile);              // file to open
  72.    }
  73.    Open.Files.Select (sFile);                     // select the file
  74.    Open.OK.Click ();                              // click OK
  75.     
  76.    VerifyValue (TextEditor.Document.GetMultiText (), lsText); // test that it is correct    
  77.     
  78.    TextEditor.File.New.Pick ();                    // clean up edit field
  79. }
  80.  
  81.  
  82. /*****************************************************************************/
  83.  
  84. testcase TestCopyPasteCut ()
  85. {
  86.    // copy, paste, and cut some text
  87.  
  88.    list of string lsText = {
  89.       "Kiss me you fool,",
  90.       "before  the  lava", 
  91.       "hits the village!"
  92.    };
  93.  
  94.    TextEditor.Document.SetMultiText (lsText);      // write the text   
  95.    TextEditor.Document.TypeKeys ("<Up 2>");        // move up 2 lines
  96.    TextEditor.Document.TypeKeys ("<Shift-Left 20>"); // highlight the line
  97.    TextEditor.Edit.Copy.Pick ();                   // copy text to clipboard
  98.    TextEditor.Document.Click ();                   // deselect highlighted text
  99.    TextEditor.Document.TypeKeys ("<Right 17>");    // move to end of line
  100.    TextEditor.Document.TypeKeys ("<Enter>");       // move cursor to next line
  101.    TextEditor.Edit.Paste.Pick ();                  // paste in the text
  102.    VerifyValue (TextEditor.Document.GetMultiText (2,1), {"Kiss me you fool,"});
  103.  
  104.    TextEditor.Document.TypeKeys ("<Up 1>");        // move up one line
  105.    TextEditor.Document.TypeKeys ("<Shift-Left 10>"); // highlight some text
  106.    TextEditor.Edit.Cut.Pick ();                    // cut out selected text
  107.    VerifyValue (TextEditor.Document.GetMultiText (1,1), {"Kiss me"});
  108.  
  109.    TextEditor.File.New.Pick ();                    // return app to base state
  110.    MessageBox.No.Click ();                         // don't save changes
  111. }
  112.  
  113. /*****************************************************************************/
  114.  
  115. testcase TestGotoLine ()
  116. {
  117.    // move cursor to specific lines
  118.  
  119.   list of string lsText = {
  120.       "Nothing can bring you peace",
  121.       "but yourself.",
  122.       "Nothing can bring you peace",
  123.       "but the triumph of principles.",
  124.       " ",
  125.       "   - Self-Reliance, R. W. Emerson"
  126.    };
  127.  
  128.    TextEditor.Document.SetMultiText (lsText);      // write text
  129.    TextEditor.Search.GotoLine.Pick ();             // bring up goto dialog box
  130.    GotoLine.Line.SetText ("4");                    // go to line # 4
  131.    GotoLine.OK.Click ();                           // push OK button
  132.    TextEditor.Document.TypeKeys ("<Shift-Right 30>"); // highlight the line
  133.  
  134.    VerifyValue (TextEditor.Document.GetSelText (), "but the triumph of principles.");
  135.    TextEditor.Document.Click ();                   // deselect text
  136.  
  137.    TextEditor.Search.GotoLine.Pick ();             // bring up Go To dialog box
  138.    GotoLine.Line.SetText ("2");                    // go to line # 1
  139.    GotoLine.OK.Click ();                           // push OK button 
  140.    TextEditor.Document.TypeKeys ("<Shift-Right 13>"); // highlight the line
  141.  
  142.    VerifyValue (TextEditor.Document.GetSelText (), "but yourself.");
  143.  
  144.    TextEditor.File.New.Pick ();                    // try to create a new file
  145.    MessageBox.No.Click ();                         // don't save file
  146. }
  147.  
  148. /*****************************************************************************/
  149.  
  150. testcase TestInvokeError ()
  151. {
  152.    // intentionall invoke an error  
  153.    
  154.    string sText = "We hope you enjoyed our demo!";
  155.    TextEditor.Document.SetText (sText);
  156.  
  157.    VerifyValue (TextEditor.Document.GetText (), "We hope you enjoyed our {GUI_GetName ()} demo!");
  158.  
  159.    TextEditor.File.New.Pick ();
  160.    MessageBox.No.Click ();
  161. }       
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.